home *** CD-ROM | disk | FTP | other *** search
/ Aminet 34 / Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso / Aminet / util / virus / vht-vc25.lha / Virus_CheckerII / ARexx / XVirus_CheckerII.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1999-06-12  |  1010 b   |  48 lines
  1. /*    VirusChecker II Uploaded File Checker For Virus
  2.     basically mend for Xenolink BBS
  3.  
  4.     Written by Alex van Niel
  5.     Based on the XVirusChecker.rex by Steve Bird
  6.  
  7.  
  8.     Needed: VirusCheckerII v1.9 or better
  9.             Arexx :)
  10.  
  11.     $VER: XVirus_CheckerII.rexx v1.0 (27.10.98) by Alex van Niel
  12.  
  13. */
  14.  
  15. options results
  16.  
  17. parse arg filename
  18.  
  19. vi=0
  20.  
  21. if filename = '' then do
  22.     say 'Sorry, no file supplied to check.'
  23.     exit 10
  24. end
  25.  
  26. if filename ~= '' then do
  27.     say 'Checking '||filename
  28.     Address 'Virus_CheckerII' 'Scan '||filename
  29.     if VCHECK.0.0 ~= 0 then do
  30.  
  31.         do x=1 to VCHECK.0.0
  32.  
  33.             If VCHECK.x.3 = "" Then Do
  34.                 sysoplog 'Virus Found : ' || VCHECK.x.1 || '  (' || VCHECK.x.2 || ')'
  35.                 say 'File ' || VCHECK.x.1 || ' was infected with ' || VCHECK.x.2 || ' virus.'
  36.                 End
  37.             Else Do
  38.                 sysoplog 'Virus Found : '|| VCHECK.x.1 || ' -> ' || VCHECK.x.3 || '  (' || VCHECK.x.2 || ')'
  39.                 say 'File ' || VCHECK.x.3 || ' in archive ' || VCHECK.x.1 || ' was infected with ' || VCHECK.x.2 || ' virus.'
  40.             End
  41.  
  42.             vi = 1
  43.         end
  44.     end
  45. end
  46.  
  47. exit vi
  48.